(edebug-instrument-function): Err if find-function-noselect gives no position.

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 7e4972194bb24f3ebac3cbdb6e67df5b0cefb6fa..8645ec5a6ed8a4abceb6e3db9c4e98c8e511a2ea 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -3419,6 +3419,8 @@ go to the end of the last sexp, or if that is the same point, then step."
       func)
      (t
       (let ((loc (find-function-noselect func)))
+       (unless (cdr loc)
+         (error "Could not find the definition in its file"))
        (with-current-buffer (car loc)
          (goto-char (cdr loc))
          (edebug-eval-top-level-form)